(describe(iris)[1])
(describe(iris)[[1]]$counts)
(describe(iris)[[1]]$values)
View(iris)
(describe(iris)[[6]]$values)
(describe(iris)[[5]]$values)
(describe(iris)[[5]]$counts)
describe
describe:Hmisc
Hmisc::describe
Hmisc::describe()
?describe
describe(irirs)
describe(iris)
str(describe(iris))
(describe(iris)[[5]]$descript)
desc<-describe(iris)
(desc[[5]]$counts)
c(desc[[5]]$descript,desc[[5]]$counts,desc[[5]]$values)
desc[[5]]$values
desc[[5]]
str(desc[[5]]$values)
(desc[[5]]$values[,2])
(desc[[5]]$values[,1])
(desc[[5]]$values[1,])
(desc[[5]]$values[1,2])
(desc[[5]]$values[2,])
c(desc[[5]]$descript,desc[[5]]$counts,desc[[5]]$values[2,])
paste(desc[[5]]$values[2,],"%")
paste0(desc[[5]]$values[2,],"%")
desc[[5]]$values[2,]
str(desc[[5]]$values[2,])
names(desc[[5]]$values[2,])
temp<-paste0(desc[[5]]$values[2,],"%")
names(temp)<-names(desc[[5]]$values[2,])
temp
c(desc[[5]]$descript,desc[[5]]$counts,temp)
str(iris)
str(str(iris))
(str(iris))
(str(iris)[,2])
(str(iris)[2])
(str(iris)[2,])
(str(iris)$class)
str(str(iris))
class(iris$Sepal.Length)
class(iris$Species)
c(desc[[5]]$descript,desc[[5]]$counts,temp)
describe(iris)
describe(round(runif(200)))
c(desc[[4]]$descript,desc[[4]]$counts,desc[[4]]$values[2,])
c(desc[[4]]$descript,desc[[4]]$counts,desc[[4]]$values)
desc[[4]]$descript
c(desc[[4]]$descript,desc[[4]]$counts,desc[[4]]$values)
des<-c(desc[[4]]$descript,desc[[4]]$counts,desc[[4]]$values)
des[1]
des[2]
des[3]
names(des)
path="C:/Users/User/Dropbox (Quantil)/Atinna/Codensa/"
load(paste(path, "Datos Organizados/entrenamiento_activosID.RData", sep=""))
load(paste(path, "Datos Organizados/prueba_activosID.RData", sep=""))
vars=c("estrato", "zonacodensa", "sucursalcodensa", "colpatria", "espectador", "televisa", "tiempo", "tarjetacredito")
for(i in 1:length(vars)){
col=which(names(entrenamiento2)==vars[i])
entrenamiento2[,col]=as.factor(entrenamiento2[,col])
col=which(names(prueba2)==vars[i])
prueba2[,col]=as.factor(prueba2[,col])
}
entrenamiento2$logconsumo= log(entrenamiento2$consumo_energia)
entrenamiento2[which(entrenamiento2$logconsumo==-Inf), "logconsumo"]=NA
entrenamiento2[which(entrenamiento2$dias_mora<=30), "dias_mora"]=1
entrenamiento2[which(entrenamiento2$dias_mora>=31 & entrenamiento2$dias_mora<=60), "dias_mora"]=2
entrenamiento2[which(entrenamiento2$dias_mora>=61 & entrenamiento2$dias_mora<=90), "dias_mora"]=3
entrenamiento2[which(entrenamiento2$dias_mora>=91 & entrenamiento2$dias_mora<=120), "dias_mora"]=4
entrenamiento2[which(entrenamiento2$dias_mora>=121 ), "dias_mora"]=5
entrenamiento2$dias_mora=as.factor(entrenamiento2$dias_mora)
prueba2$logconsumo= log(prueba2$consumo_energia)
prueba2[which(prueba2$logconsumo==-Inf), "logconsumo"]=NA
prueba2[which(prueba2$dias_mora<=30), "dias_mora"]=1
prueba2[which(prueba2$dias_mora>=31 & prueba2$dias_mora<=60), "dias_mora"]=2
prueba2[which(prueba2$dias_mora>=61 & prueba2$dias_mora<=90), "dias_mora"]=3
prueba2[which(prueba2$dias_mora>=91 & prueba2$dias_mora<=120), "dias_mora"]=4
prueba2[which(prueba2$dias_mora>=121 ), "dias_mora"]=5
prueba2$dias_mora=as.factor(prueba2$dias_mora)
base<-rbind(entrenamiento2,prueba2)
str(base)
describe(base)
names(base)
desc<-describe(base)
numer<-c(1,2,3,9,37)
dnum<-data.frame()
for(i in numer){
print(i)
dn<-c(desc[[i]]$descript,desc[[i]]$counts,desc[[i]]$values)
rbind(dnum,dn)
}
dnum
i
desc
i<-1
desc[[i]]$descript
dn<-c(desc[[i]]$descript,desc[[i]]$counts,desc[[i]]$values)
dn
dnum<-data.frame()
for(i in numer){
#i<-1
print(i)
dn<-c(desc[[i]]$descript,desc[[i]]$counts,desc[[i]]$values)
dnum<-rbind(dnum,dn)
}
dnum
dnum<-data.frame()
i<-1
print(i)
dn<-c(desc[[i]]$descript,desc[[i]]$counts,desc[[i]]$values)
dn
dnum<-rbind(dnum,dn)
dnum
View(dnum)
numer
i<-2
print(i)
dn<-c(desc[[i]]$descript,desc[[i]]$counts,desc[[i]]$values)
dn
dnum
i<-1
print(i)
dn<-c(desc[[i]]$descript,desc[[i]]$counts,desc[[i]]$values)
dn
str(base)
numer<-c(2,3,9,37)
dnum<-data.frame()
for(i in numer){
#i<-1
print(i)
dn<-c(desc[[i]]$descript,desc[[i]]$counts,desc[[i]]$values)
dnum<-rbind(dnum,dn)
}
dnum
i<-3
print(i)
dn<-c(desc[[i]]$descript,desc[[i]]$counts,desc[[i]]$values)
dn
i<-9
print(i)
dn<-c(desc[[i]]$descript,desc[[i]]$counts,desc[[i]]$values)
dn
i<-37
print(i)
dn<-c(desc[[i]]$descript,desc[[i]]$counts,desc[[i]]$values)
dnum<-rbind(dnum,dn)
dn
dnum<-list()
dnum<-list()
for(i in numer){
#i<-37
print(i)
dn<-c(desc[[i]]$descript,desc[[i]]$counts,desc[[i]]$values)
dnum[[i]]<-dn
}
dnum
str(dnum)
as.data.frame(dnum)
dnum<-list()
for(i in numer){
#i<-37
print(i)
dn<-c(desc[[i]]$descript,desc[[i]]$counts,desc[[i]]$values)
dnum[[which(i==numer)]]<-dn
}
dnum
as.data.frame(dnum)
do.call(rbind.data.frame, dnum)
datanum<-do.call(rbind.data.frame, dnum)
View(datanum)
names(datanum)<-names(dn)
View(datanum)
log(200)
exp(11.1)
exp(11.165)
dnum<-do.call(rbind.data.frame, dnum)
names(dnum)<-names(dn)
write.csv(dnum,file=paste0(path,"Analisis/Descriptivas/","ActualesNuméricas",".csv"))
write.csv(dnum,file=paste0(path,"Analisis/Descriptivas/","ActualesNuméricas",".csv"),row.names=F)
write.csv(dnum,file=paste0(path,"Analisis/Descriptivas/","ActualesNuméricas",".csv"),row.names=F)
dnum
i<-7
print(i)
c(desc[[i]]$descript,desc[[i]]$counts,desc[[i]]$values)
temp<-paste0(desc[[i]]$values[i,],"%")
temp<-paste0(desc[[i]]$values[2,],"%")
temp
names(temp)<-names(desc[[i]]$values[2,])
temp
db<-c(desc[[i]]$descript,desc[[i]]$counts,desc[[i]]$values)
db
db<-c(desc[[i]]$descript,desc[[i]]$counts,temp)
db
dbina<-list(0)
for(i in bina){
#i<-7
print(i)
temp<-paste0(desc[[i]]$values[2,],"%")
names(temp)<-names(desc[[i]]$values[2,])
db<-c(desc[[i]]$descript,desc[[i]]$counts,temp)
dbina[[which(i==bina)]]<-db
}
bina<-c(7,10:36)
dbina<-list(0)
for(i in bina){
#i<-7
print(i)
temp<-paste0(desc[[i]]$values[2,],"%")
names(temp)<-names(desc[[i]]$values[2,])
db<-c(desc[[i]]$descript,desc[[i]]$counts,temp)
dbina[[which(i==bina)]]<-db
}
dbina
dbina<-do.call(rbind.data.frame, dbina)
names(dbina)<-names(db)
View(dbina)
write.csv(dbina,file=paste0(path,"Analisis/Descriptivas/","ActualesBinarias",".csv"),row.names=F)
fact<-c(4,5,6,8)
describe(base[,fact])
fact
i<-4
print(i)
temp<-paste0(desc[[i]]$values[2,],"%")
names(temp)<-names(desc[[i]]$values[2,])
c(desc[[i]]$descript,desc[[i]]$counts,temp)
df<-c(desc[[i]]$descript,desc[[i]]$counts,temp)
for(i in fact){
#i<-4
print(i)
temp<-paste0(desc[[i]]$values[2,],"%")
names(temp)<-names(desc[[i]]$values[2,])
df<-c(desc[[i]]$descript,desc[[i]]$counts,temp)
write.csv(df,file=paste0(path,"Analisis/Descriptivas/","Actuales",names(base)[i],".csv"),row.names=F)
}
df
rbind(df,names(df))
rbind(names(df),df)
write.csv(df,file=paste0(path,"Analisis/Descriptivas/","Actuales",names(base)[i],".csv"),row.names=F)
i
names(base)
df
df<-rbind(names(df),df)
write.csv(df,file=paste0(path,"Analisis/Descriptivas/","Actuales",names(base)[i],".csv"),row.names=F)
?wwrite.csv
?write.csv
write.csv(df,file=paste0(path,"Analisis/Descriptivas/","Actuales",names(base)[i],".csv"),row.names=F,col.names = F)
write.csv(df,file=paste0(path,"Analisis/Descriptivas/","Actuales",names(base)[i],".csv"),row.names=F,col.names = NA)
write.table(df,file=paste0(path,"Analisis/Descriptivas/","Actuales",names(base)[i],".csv"),sep=",",row.names=F,col.names = NA)
write.table(df,file=paste0(path,"Analisis/Descriptivas/","Actuales",names(base)[i],".csv"),sep=",",row.names=F,col.names = F)
for(i in fact){
#i<-4
print(i)
temp<-paste0(desc[[i]]$values[2,],"%")
names(temp)<-names(desc[[i]]$values[2,])
df<-c(desc[[i]]$descript,desc[[i]]$counts,temp)
df<-rbind(names(df),df)
write.table(df,file=paste0(path,"Analisis/Descriptivas/","Actuales",names(base)[i],".csv"),sep=",",row.names=F,col.names = F)
}
############################
######### Analisis #########
############################
rm(list=ls())
library(PerformanceAnalytics)
library(arules)
library(stats)
library(gbm)
library(pROC)
library(ROCR)
library(party)
library(boot)
library(party)
library(partykit)
library(rpart)
library(dummies)
library(nlme)
library(texreg)
library(rattle)
library(Hmisc)
path="C:/Users/User/Dropbox (Quantil)/Atinna/Codensa/"
load(paste(path, "Datos Organizados/entrenamiento.RData", sep=""))
load(paste(path, "Datos Organizados/prueba.RData", sep=""))
enie=entrenamiento$NIE
entrenamiento$NIE=NULL
entrenamiento$NOMBRE=NULL
colnames(entrenamiento)[1:6]=c("estrato", "consumo_energia", "zonacodensa", "tipocliente", "sucursalcodensa", "ao_creacion")
entrenamiento$estrato=as.factor(entrenamiento$estrato)
entrenamiento$zonacodensa=as.factor(entrenamiento$zonacodensa)
entrenamiento$tipocliente=as.factor(entrenamiento$tipocliente)
entrenamiento$sucursalcodensa=as.factor(entrenamiento$sucursalcodensa)
entrenamiento$consumo_energia=gsub(",", ".", entrenamiento$consumo_energia)
entrenamiento$consumo_energia=as.numeric(as.character(entrenamiento$consumo_energia))
entrenamiento$logconsumo= log(entrenamiento$consumo_energia)
entrenamiento[which(entrenamiento$logconsumo==-Inf), "logconsumo"]=NA
col=ncol(entrenamiento)-1
for(i in 7:col) entrenamiento[,i]=as.factor(entrenamiento[,i])
entrenamiento$nie=enie
pnie=prueba$NIE
prueba$NIE=NULL
prueba$NOMBRE=NULL
colnames(prueba)[1:6]=c("estrato", "consumo_energia", "zonacodensa", "tipocliente", "sucursalcodensa", "ao_creacion")
prueba$estrato=as.factor(prueba$estrato)
prueba$zonacodensa=as.factor(prueba$zonacodensa)
prueba$tipocliente=as.factor(prueba$tipocliente)
prueba$sucursalcodensa=as.factor(prueba$sucursalcodensa)
prueba$consumo_energia=gsub(",", ".", prueba$consumo_energia)
prueba$consumo_energia=as.numeric(as.character(prueba$consumo_energia))
prueba$logconsumo= log(prueba$consumo_energia)
prueba[which(prueba$logconsumo==-Inf), "logconsumo"]=NA
col=ncol(prueba)-1
for(i in 7:col) prueba[,i]=as.factor(prueba[,i])
prueba$nie=pnie
base<-rbind(entrenamiento,prueba)
desc<-describe(base)
names(base)
str(base)
names(base)
numer<-c(2,6,32)
fact<-c(1,3,4,5)
bina<-c(7,31)
dnum<-list()
for(i in numer){
#i<-37
print(i)
dn<-c(desc[[i]]$descript,desc[[i]]$counts,desc[[i]]$values)
dnum[[which(i==numer)]]<-dn
}
dnum<-do.call(rbind.data.frame, dnum)
dnum
names(dnum)<-names(dn)
View(dnum)
write.csv(dnum,file=paste0(path,"Analisis/Descriptivas/","NuevosNuméricas",".csv"),row.names=F)
dbina<-list(0)
for(i in bina){
#i<-7
print(i)
temp<-paste0(desc[[i]]$values[2,],"%")
names(temp)<-names(desc[[i]]$values[2,])
db<-c(desc[[i]]$descript,desc[[i]]$counts,temp)
dbina[[which(i==bina)]]<-db
}
dbina<-do.call(rbind.data.frame, dbina)
names(dbina)<-names(db)
bina<-c(7:31)
dbina<-list(0)
for(i in bina){
#i<-7
print(i)
temp<-paste0(desc[[i]]$values[2,],"%")
names(temp)<-names(desc[[i]]$values[2,])
db<-c(desc[[i]]$descript,desc[[i]]$counts,temp)
dbina[[which(i==bina)]]<-db
}
dbina<-do.call(rbind.data.frame, dbina)
names(dbina)<-names(db)
View(dbina)
write.csv(dbina,file=paste0(path,"Analisis/Descriptivas/","NuevosBinarias",".csv"),row.names=F)
fact
for(i in fact){
#i<-4
print(i)
temp<-paste0(desc[[i]]$values[2,],"%")
names(temp)<-names(desc[[i]]$values[2,])
df<-c(desc[[i]]$descript,desc[[i]]$counts,temp)
df<-rbind(names(df),df)
write.table(df,file=paste0(path,"Analisis/Descriptivas/","Nuevos",names(base)[i],".csv"),sep=",",row.names=F,col.names = F)
}
32/60
?gbm
library(gbm)
?gbm
3.5/28
3800000/40000
4900000/40000
175407-133258
58.13*24480.53
58.13*24480.53*2
15547060-58.13*24480.53*2
81000/27
81000/26
81000/25
15547060-58.13*24480.53*2
15547060-58.13*24480.53*2-12500000
58.13*24480.53*2
14/22.6
752.05-290.92
21981071-21292403
688/30
688/24
689455+77700
(689455+77700)/24
72/24
72/30
78/30
29*1.07
31/30
32/30
690/24
78/24
65/9
7.2/85
7200/85
3500/50
4000/50
2800*12
2900*12
2700*12
2600*12
100/.93
100/(.04*.93)
2688*.04
2688*.04*.93
2689*.04*.93
2688172*.04*.93
2688172*.04
2688172*12
34*1.07
53*3300
20000000/200000
=1180*1.07
1180*1.07
1350*1.07
1800*1.07
2350*1.07
450*1.07
8+7
1100/5
1100/4
350*29753
350*28253
8160/4
2300-2040
?saveRDS
?ggplot2
library(ggplot2 )
require(shiny)
folder_address = "C:/Users/User/Documents/Miguel B/Trabajo/Quantil/Banco Agrario/2015/Enviar Quantil/Interfaz_VAR"
runApp(folder_address, launch.browser=TRUE)
install.packages(shiny)
install.packages("shiny")
require(shiny)
folder_address = "C:/Users/User/Documents/Miguel B/Trabajo/Quantil/Banco Agrario/2015/Enviar Quantil/Interfaz_VAR"
runApp(folder_address, launch.browser=TRUE)
folder_address = "C:/Users/User/Documents/Miguel B/Trabajo/Quantil/Banco Agrario/2015/Enviar Quantil/Interfaz_VAR"
folder_address
runApp(folder_address, launch.browser=TRUE)
?runApp
folder_address
runApp(folder_address, launch.browser=TRUE)
runExample("01_hello")
require(shiny)
folder_address = "C:/Users/User/Documents/Miguel B/Trabajo/Quantil/Banco Agrario/2015/Enviar Quantil/Interfaz_VAR"
runApp(appDir = folder_address, launch.browser=TRUE)
require(shiny)
folder_address = "C:/Users/User/Documents/Miguel B/Trabajo/Quantil/Banco Agrario/2015/Enviar Quantil/Interfaz_VAR"
runApp(appDir = folder_address, launch.browser=TRUE)
require(shiny)
folder_address = "C:/Users/User/Documents/Miguel B/Trabajo/Quantil/Banco Agrario/2015/Enviar Quantil/Interfaz_VAR"
runApp(appDir = folder_address, launch.browser=TRUE)
require(shiny)
folder_address = "C:\\Users\\User\\Documents\\Miguel B\\Trabajo\\Quantil\\Banco Agrario\\2015\\Enviar Quantil\\Interfaz_VAR"
runApp(appDir = folder_address, launch.browser=TRUE)
require(shiny)
folder_address = "C:\\Users\\User\\Documents\\Miguel B\\Trabajo\\Quantil\\Banco Agrario\\2015\\Enviar Quantil\\Interfaz_VAR"
runApp(appDir = folder_address, launch.browser=TRUE)
require(shiny)
folder_address = "C:\\Users\\User\\Documents\\Miguel B\\Trabajo\\Quantil\\Banco Agrario\\2015\\Enviar Quantil\\Interfaz_VAR"
runApp(appDir = folder_address, launch.browser=TRUE)
53.34*3282
53.34*3281.74
5*3.5
6*3
require(shiny)
folder_address = "C:/Users/User/Documents/Miguel B/Trabajo/Quantil/Banco Agrario/2015/Enviar Quantil/Interfaz_VAR"
runApp(appDir = folder_address, launch.browser=TRUE)
install.packages(shiny)
install.packages("shiny")
install.packages("shiny")
require(shiny)
folder_address = "C:/Users/User/Documents/Miguel B/Trabajo/Quantil/Banco Agrario/2015/Enviar Quantil/Interfaz_VAR"
runApp(appDir = folder_address, launch.browser=TRUE)
7*4
8*4
82*29753
162*3
30/120
30000/120
33/177
61/88
92/225
28/120
20000/50
105-74
20/120
setwd("C:\\Users\\User\\Documents\\Miguel B\\Universidad\\Maestría\\Monitoría Minería de datos\\Intro R")
list.files()
simon<-read.csv("DF2.csv")
View(simon)
write("a<-3;print(ls())","hello.R")
source("hello.R")
8^3
8%%3
(3+5i)*(3-2i)
sin(pi)
a <- c(1,3,2,4,5); a
aa<-c(0,"miguel",TRUE)
aa
